home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arrays / easyway.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-08-11  |  3.8 KB  |  132 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3315
  5.    ClientLeft      =   4860
  6.    ClientTop       =   2550
  7.    ClientWidth     =   1605
  8.    ControlBox      =   0   'False
  9.    Height          =   3720
  10.    Left            =   4800
  11.    LinkTopic       =   "Form2"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3315
  16.    ScaleWidth      =   1605
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   2205
  19.    Visible         =   0   'False
  20.    Width           =   1725
  21.    Begin VB.Label Label1 
  22.       Caption         =   "   Cancel"
  23.       Height          =   285
  24.       Index           =   10
  25.       Left            =   0
  26.       TabIndex        =   9
  27.       Top             =   2790
  28.       Width           =   1635
  29.    End
  30.    Begin VB.Label Label1 
  31.       Caption         =   "   Label9"
  32.       Height          =   285
  33.       Index           =   9
  34.       Left            =   0
  35.       TabIndex        =   8
  36.       Top             =   2235
  37.       Width           =   1635
  38.    End
  39.    Begin VB.Label Label1 
  40.       Caption         =   "   Label8"
  41.       Height          =   285
  42.       Index           =   8
  43.       Left            =   0
  44.       TabIndex        =   7
  45.       Top             =   1950
  46.       Width           =   1635
  47.    End
  48.    Begin VB.Label Label1 
  49.       Caption         =   "   Label7"
  50.       Height          =   270
  51.       Index           =   7
  52.       Left            =   0
  53.       TabIndex        =   6
  54.       Top             =   1665
  55.       Width           =   1635
  56.    End
  57.    Begin VB.Label Label1 
  58.       Caption         =   "   Label6"
  59.       Height          =   270
  60.       Index           =   6
  61.       Left            =   -15
  62.       TabIndex        =   5
  63.       Top             =   1410
  64.       Width           =   1650
  65.    End
  66.    Begin VB.Label Label1 
  67.       Caption         =   "   Label5"
  68.       Height          =   270
  69.       Index           =   5
  70.       Left            =   -15
  71.       TabIndex        =   4
  72.       Top             =   1140
  73.       Width           =   1650
  74.    End
  75.    Begin VB.Label Label1 
  76.       Caption         =   "   Label4"
  77.       Height          =   285
  78.       Index           =   4
  79.       Left            =   -15
  80.       TabIndex        =   3
  81.       Top             =   855
  82.       Width           =   1650
  83.    End
  84.    Begin VB.Label Label1 
  85.       BackColor       =   &H00C0C0C0&
  86.       Caption         =   "   Label3"
  87.       ForeColor       =   &H00000000&
  88.       Height          =   285
  89.       Index           =   3
  90.       Left            =   0
  91.       TabIndex        =   2
  92.       Top             =   570
  93.       Width           =   1635
  94.    End
  95.    Begin VB.Label Label1 
  96.       Caption         =   "   Label2"
  97.       Height          =   285
  98.       Index           =   2
  99.       Left            =   0
  100.       TabIndex        =   1
  101.       Top             =   285
  102.       Width           =   1635
  103.    End
  104.    Begin VB.Label Label1 
  105.       Caption         =   "   Label1"
  106.       Height          =   285
  107.       Index           =   1
  108.       Left            =   0
  109.       TabIndex        =   0
  110.       Top             =   0
  111.       Width           =   1635
  112.    End
  113. Attribute VB_Name = "Form2"
  114. Attribute VB_Creatable = False
  115. Attribute VB_Exposed = False
  116. Option Explicit
  117. Private Sub Label1_Click(Index As Integer)
  118.    Form1.Command1.Caption = Label1(Index).Caption
  119.    If Index = 10 Then
  120.       Label1(10).BorderStyle = 0
  121.       Form1.Command1.Caption = "Click Me"
  122.       Form2.Visible = False
  123.    End If
  124. End Sub
  125. Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  126.    Dim n As Integer
  127.    For n = 1 To 10
  128.       Label1(n).BorderStyle = 0
  129.    Next
  130.    Label1(Index).BorderStyle = 1
  131. End Sub
  132.